home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / morse (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  238 lines
  1. 0 PRINT"[147]"
  2. 1 PRINT"PROGRAMME DE MORSE A VITESSE VARIABLE[146]"
  3. 2 PRINT"            POUR COMMODORE 64[146]"
  4. 3 REM**CE PROGR. M'A ETE FOURNI PAR UN CLUB DE RADIO-AMATEUR DU SAGUENAY (P.Q.)*
  5. 4 REM**REMIS AU CLUB T.P.U.G. POUR DIFFUSION PAR MICHEL RICARD VE2DDT**
  6. 5 FORL=54272TO54296:POKEL,0:NEXT:N1=45:N2=192:F1=17:F2=16:FD$="TRIANGLE":S1=40
  7. 20 DIMVA$(100):GOSUB1700:REM"PROGRAMME DE MORSE A VITESSE VARIABLE"
  8. 30 POKE54273,N1:POKE54272,N2:POKE54277,18
  9. 32 POKE54278,128
  10. 34 :POKE54296,0:PRINT"[147]VOICI VOS CHOIX"
  11. 40 PRINT"1- ECRIRE UN TEXTE"
  12. 50 PRINT"2- ECOUTER UN TEXTE"
  13. 60 PRINT"3- ENVOYER EN DIRECT"
  14. 70 PRINT"4- LETTRES AU HAZARD
  15. 80 [153]"5- SAUVER OU SORTIR UN TEXTE
  16. 90 PRINT"6- CHANGER LA VITESSE OU LA FREQUENCE
  17. 100 [153]"7- FIN"
  18. 120 [153]:[153]"QUEL EST VOTRE CHOIX (1 A 7) ? ";
  19. 130 [141]2210
  20. 140 R1[178][198](R$):[139]R1[171]48[179]8[175]R1[171]48[177]0[167][153]R$:[153]"LOAD":[137]160
  21. 150 [137]130
  22. 160 R1[178]R1[171]48:[145]R1[137]180,350,490,1880,590,850,2250
  23. 170 [143]  *** ENTREE DES MESSAGES ***
  24. 180 [153]" ATTENTION VOUS EFFACEZ TOUT "
  25. 190 [133]"VOULEZ-VOUS CONTINUER ( O/N )   OCMDCMDCMD";R$
  26. 200 [139]R$[179][177]"O"[167]30
  27. 210 [153]"LOADECRIVEZ VOTRE TEXTE:"
  28. 220 [153]"POUR TERMINER PRESSEZ ' # '":[153]">";
  29. 230 A%[178]0:[129]I[178]1[164]9:VA$(I)[178]"":[130]
  30. 240 A%[178]A%[170]1
  31. 250 [141]2210
  32. 260 [139]R$[178][199](20)[167][153][199](20);:[141]320:[137]250
  33. 270 [153]R$;
  34. 280 VA$(A%)[178]VA$(A%)[170]R$
  35. 290 [139]R$[178]"#"[167]30
  36. 300 [139][195](VA$(A%))[177]78[167]240
  37. 310 [137]250
  38. 320 [139][195](VA$(A%))[178]1[167]VA$(A%)[178]"":A%[178]A%[171]1:[137]340
  39. 330 VA$(A%)[178][200](VA$(A%),([195](VA$(A%))[171]1))
  40. 340 [142]
  41. 350 [153]"LOAD"[163]11);"VOICI LE TEXTE":[153]:A%[178]1:[139]VA$(A%)[178]""[167]1610
  42. 360 [151]54296,255
  43. 370 A%[178]0:R$[178]"":TI$[178]"000000"
  44. 380 A%[178]A%[170]1:I[178][195](VA$(A%))
  45. 390 [129]X[178]1[164]I:P$[178][202](VA$(A%),X,1)
  46. 400 [139]P$[178]"#"[167]X[178]I:[137]470
  47. 410 [153]P$;:[141]1000
  48. 430 [139]R$[178]"N"[167]X[178]I:[137]480
  49. 440 R$[178]""
  50. 450 [129]J1[178]1[164]K1:[130]
  51. 460 [130]X:[137]380
  52. 470 [130]X:[137]1650
  53. 480 [130]X:[137]30
  54. 490 [143] *** TRAMSMETTRE IMMEDIATEMENT"
  55. 500 PRINT"[147]";TAB(10);"ENVOYER SANS ATTENTE":PRINT:PRINT
  56. 510 POKE54296,255
  57. 520 PRINT"POUR TERMINER PRESSEZ ' # '"
  58. 530 PRINT"> ";:X=0:TI$="000000"
  59. 540 GOSUB2210
  60. 550 X=X+1:P$=R$
  61. 560 IFR$="#"THEN30
  62. 570 PRINTR$;:GOSUB1000
  63. 580 GOTO540
  64. 590 REM  *** TRANSFER CASSETTE ***
  65. 600 PRINT"VOULEZ-VOUS....?"
  66. 610 PRINT"1- ENTRER L'INFORMATION SUR DISQUE"
  67. 620 PRINT"2- PRENDRE L'INFORMATION DU DISQUE"
  68. 630 INPUT"QUEL EST VOTRE CHOIX (1 OU 2)  2[157][157][157]";R$
  69. 640 IFR$="1"THEN670
  70. 650 IFR$="2"THEN750
  71. 660 GOTO630
  72. 670 REM *** SAUVER DISQUE ***
  73. 680 IFA%<1THENPRINT:PRINTTAB(20)"AUCUN TEXTE[146]":GOSUB1600:GOTO30
  74. 700 INPUT"ENTREZ LE NOM DU TEXTE";R$
  75. 710 OPEN7,8,1,R$:PRINT#7,A%
  76. 720 FORJ=1TOA%:PRINT#7,VA$(J):NEXT
  77. 730 CLOSE7:PRINT:PRINT"C'EST ECRIS"
  78. 740 GOTO1620
  79. 750 PRINT:INPUT"NOM DU TEXTE DEMANDE";N$
  80. 770 PRINT"APPUYEZ UNE CLE POUR CONTINUER"
  81. 780 GOSUB2220
  82. 790 OPEN7,8,0,N$
  83. 800 A%=1
  84. 810 INPUT#7,VA$(A%)
  85. 820 IF 64ANDSTTHEN840
  86. 830 A%=A%+1:GOTO810
  87. 840 CLOSE7:PRINT"LE TEXTE ";N$;" EST COMPLET":CLOSE7:GOTO1620
  88. 850 REM *** VITESSE ET FREQUENCE ***
  89. 860 PRINT"VOULEZ-VOUS...?"
  90. 870 PRINT"1- CHANGER LA VITESSE"
  91. 880 PRINT"2- CHANGER LA FREQUENCE"
  92. 890 INPUT"QUEL EST VOTRE CHOIX (1 OU 2) ? 1[157][157][157]";R$
  93. 900 IFR$="1"THEN1700
  94. 910 IFR$="2"THEN930
  95. 920 GOTO850
  96. 930 REM ***  CHANGER LA FREQUENCE ***
  97. 935 PRINT"SON PRESENT "S1:PRINT"FORME D'ONDE PRESENT "FD$
  98. 937 INPUT"QUEL SON VOULEZ-VOUS (0-83)   50[157][157][157][157]";S1
  99. 938 IFS1<0ORS1>83THEN937
  100. 940 FORXA=0TOS1:READN1,N2:NEXT:RESTORE
  101. 950 INPUT"FORME D'ONDE DIFFERENTE";R$
  102. 955 IFR$="N"THEN30
  103. 960 INPUT"VOTRE CHOIX; T[146]RIANGLE  D[146]ENT  P[146]ULSE   T[157][157][157]";FD$
  104. 961 IFFD$="T"THENF1=17:F2=16:GOTO30
  105. 962 IFFD$="D"THENF1=33:F2=32:GOTO30
  106. 963 IFFD$="P"THENF1=65:F2=64:GOTO30
  107. 964 GOTO960
  108. 1000 P=ASC(P$):IFP<46ORP>90THEN1120
  109. 1010 IFP=64THEN1650
  110. 1015 IFP=47THEN1555
  111. 1020 IFP=63THEN1530
  112. 1030 IFP=59THEN1540
  113. 1040 IFP=46THEN1510
  114. 1050 IFP>47ANDP<58THEN1090
  115. 1060 IFP>64ANDP<79THEN1100
  116. 1070 IFP>78ANDP<91THEN1110
  117. 1080 P=0:GOSUB1830:RETURN
  118. 1090 P=P-47:ONPGOTO1410,1420,1430,1440,1450,1460,1470,1480,1490,1500
  119. 1100 P=P-64:ONPGOTO1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280
  120. 1110 P=P-78:ONPGOTO1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400
  121. 1120 IFP=44ORP=39THEN1550
  122. 1130 IFP=36THEN1520
  123. 1140 P=0:GOSUB1830:RETURN
  124. 1150 GOSUB1570:GOSUB1580:RETURN
  125. 1160 GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  126. 1170 GOSUB1580:GOSUB1570:GOSUB1580:GOSUB1570:RETURN
  127. 1180 GOSUB1580:GOSUB1570:GOSUB1570:RETURN
  128. 1190 GOSUB1570:RETURN
  129. 1200 GOSUB1570:GOSUB1570:GOSUB1580:GOSUB1570:RETURN
  130. 1210 GOSUB1580:GOSUB1580:GOSUB1570:RETURN
  131. 1220 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  132. 1230 GOSUB1570:GOSUB1570:RETURN
  133. 1240 GOSUB1570:GOSUB1580:GOSUB1580:GOSUB1580:RETURN
  134. 1250 GOSUB1580:GOSUB1570:GOSUB1580:RETURN
  135. 1260 GOSUB1570:GOSUB1580:GOSUB1570:GOSUB1570:RETURN
  136. 1270 GOSUB1580:GOSUB1580:RETURN
  137. 1280 GOSUB1580:GOSUB1570:RETURN
  138. 1290 GOSUB1580:GOSUB1580:GOSUB1580:RETURN
  139. 1300 GOSUB1570:GOSUB1580:GOSUB1580:GOSUB1570:RETURN
  140. 1310 GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1580:RETURN
  141. 1320 GOSUB1570:GOSUB1580:GOSUB1570:RETURN
  142. 1330 GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  143. 1340 GOSUB1580:RETURN
  144. 1350 GOSUB1570:GOSUB1570:GOSUB1580:RETURN
  145. 1360 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1580:RETURN
  146. 1370 GOSUB1570:GOSUB1580:GOSUB1580:RETURN
  147. 1380 GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1580:RETURN
  148. 1390 GOSUB1580:GOSUB1570:GOSUB1580:GOSUB1580:RETURN
  149. 1400 GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1570:RETURN
  150. 1410 GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1580:RETURN
  151. 1420 GOSUB1570:GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1580:RETURN
  152. 1430 GOSUB1570:GOSUB1570:GOSUB1580:GOSUB1580:GOSUB1580:RETURN
  153. 1440 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1580:GOSUB1580:RETURN
  154. 1450 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1580:RETURN
  155. 1460 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  156. 1470 GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  157. 1480 GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  158. 1490 GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1570:RETURN
  159. 1500 GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1580:GOSUB1570:RETURN
  160. 1510 GOSUB1570:GOSUB1580:GOSUB1570:GOSUB1580:GOSUB1570:GOSUB1580:RETURN
  161. 1520 GOSUB1570:GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1570:RETURN
  162. 1530 GOSUB1570:GOSUB1570:GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1570:RETURN
  163. 1540 GOSUB1580:GOSUB1570:GOSUB1580:GOSUB1570:GOSUB1580:GOSUB1570:RETURN
  164. 1550 GOSUB1580:GOSUB1580:GOSUB1570:GOSUB1570:GOSUB1580:GOSUB1580::RETURN
  165. 1555 GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570:GOSUB1570::RETURN
  166. 1560 RETURN
  167. 1570 POKE54276,F1:GOSUB1770:GOSUB1590:RETURN
  168. 1580 POKE54276,F1:GOSUB1790:GOSUB1590:RETURN
  169. 1590 POKE54276,F2:GOSUB1770:RETURN
  170. 1600 FORJ=1TO2000:NEXT:RETURN
  171. 1610 PRINT"AUCUN TEXTE N'AS ETE ECRIS[146]"
  172. 1620 POKE158,0:PRINT:PRINT"APPUYEZ UNE TOUCHE POUR CONTINUER[146]"
  173. 1630 GOSUB2220
  174. 1640 GOTO30
  175. 1650 POKE54296,0
  176. 1660 VI=(((X-1)/5)/(TI/3600)):VI$=STR$(VI)
  177. 1670 PRINT:PRINT:PRINT"LE TEXTE ETAIT DE "MID$(VI$,1,4)" M/M":GOTO1620
  178. 1680 NTE=INT((((1000000/F)/16)-2)+.5):RETURN
  179. 1690 REM *** AJUSTEMENT VITESSE ***
  180. 1700 INPUT"QUELLE VITESSE(ENTRE 5 ET 20 M/M";V
  181. 1705 IFV<3ORV>20THEN1700
  182. 1706 IFV>12THENK=1:GOTO1710
  183. 1707 K1=ABS(V*130-1900)
  184. 1708 IFV<10THENK=K*(V*.4)
  185. 1709 V=13:K=K1
  186. 1710 V=ABS(V*3-80)
  187. 1711 GOTO30
  188. 1770 FORJ1=1TOV:NEXTJ1:RETURN:REMDITH
  189. 1790 FORJ1=1TOV*3:NEXTJ1:RETURN:REMDATH
  190. 1800 RETURN
  191. 1830 FORJ1=1TOK1:NEXT:RETURN:REMPAUSE
  192. 1880 PRINT"[147]QUELLES LETTRES ( T[146] = TOUTES )":PRINT:INPUT"  T[157][157][157]";B$
  193. 1890 IFB$="T"THENB$="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890;,'$.?/"
  194. 1900 PR$=""
  195. 1910 L1=LEN(B$)
  196. 1920 INPUT"COMBIENS DE LETTRES    50[157][157][157][157]";L2:PRINT
  197. 1930 FORB1=1TOL2:B2=INT(RND(0)*L1)+1
  198. 1940 P$=MID$(B$,B2,1):PR$=PR$+P$:NEXTB1
  199. 1950 PRINT"[147]JE SUIS PRET A ENVOYER"
  200. 1960 B3=0
  201. 1970 INPUT"IMPRIME I[146]MMEDIATEMENT OU A LA F[146]IN   I[157][157][157]";R$:PRINT
  202. 1980 IFR$="I"THENB3=1
  203. 1990 POKE54296,255
  204. 2000 FORB1=1TOL2:P$=MID$(PR$,B1,1):IFB3THENPRINTP$;" ";
  205. 2010 GETR$:IFR$<>""THEN2160
  206. 2020 GOSUB1000
  207. 2030 GOSUB1830
  208. 2040 NEXTB1:IFB3THEN2080
  209. 2050 PRINT:PRINT:INPUT"RESULTATS ( O/N )   O[157][157][157]";R$
  210. 2060 IFR$="O"THENPRINT"";PR$
  211. 2070 IFR$=""THEN2060
  212. 2080 PRINT:PRINT"VOULEZ-VOUS ?"
  213. 2090 PRINT"1- LA MEME SERIE "
  214. 2100 PRINT"2- AUTRE SERIE MEMES LETTRES"
  215. 2110 PRINT"3- AUTRE SERIE"
  216. 2120 PRINT"4- RETOURNER AU DEBUT
  217. 2130 [153]:[141]2210
  218. 2140 R[178][197](R$):[139]R[179]1[176]R[177]4[167]2130
  219. 2150 [145]R[137]1970,1900,1880,30
  220. 2160 [153]:[133]"JE CONTINUE (O/N)   NCMDCMDCMD";R$:[153]
  221. 2170 [139]R$[178]"O"[167]2020
  222. 2180 [137]30
  223. 2190 [153]:[133]"JE CONTINUE (O/N)   NCMDCMDCMD";R$:[153]
  224. 2200 [142]
  225. 2210 [151]167,0
  226. 2220 [161]R$:[139]R$[178]""[167]2220
  227. 2230 [151]167,1
  228. 2240 [142]
  229. 2250 [128]:[137]30
  230. 2260 [131]2,24,2,56,2,90,2,125,2,163,2,204,2,246,3,35,3,83,3,134,3,187,3,244,4
  231. 2270 [131]48,4,112,4,180,4,251,5,71,5,152,5,237,6,71,6,167,7,12,7,119,7,233
  232. 2280 [131]8,97,8,225,9,104,9,247,10,143,11,48,11,218,12,143,13,78,14,24,14,239
  233. 2290 [131]15,210,16,195,17,195,18,209,19,239,21,31,22,96,23,181,25,30,26,156,28,49
  234. 2300 [131]29,223,31,165,33,135,35,134,37,162,39,223,42,62,44,193,47,107,50,60,53
  235. 2310 [131]57,56,99,59,190,63,75,67,15,71,12,75,69,79,191,84,125,89,131,94,214
  236. 2320 [131]100,121,106,115,112,199,199,124,126,151,134,30,142,24,150,139,159,126
  237. 2330 [131]168,250,179,6,189,172,200,243,212,230,225,143,238,248,253,46
  238.